" End If End Sub Private Sub mnuHTMLBoldOff_Click() If rtbHTML.Visible = True Then rtbHTML.SelLength = 0 rtbHTML.SelRTF = " " End If End Sub Private Sub mnuHTMLBoldOn_Click() If rtbHTML.Visible = True Then rtbHTML.SelLength = 0 rtbHTML.SelRTF = " " End If End Sub Private Sub mnuHTMLBullet_Click() If rtbHTML.Visible = True Then rtbHTML.SelLength = 0 rtbHTML.SelRTF = "" End If End Sub Private Sub mnuHTMLEnd_Click() If rtbHTML.Visible = True Then rtbHTML.SelLength = 0 rtbHTML.SelRTF = "

" & vbCrLf End If End Sub Private Sub mnuHTMLFixOff_Click() If rtbHTML.Visible = True Then rtbHTML.SelLength = 0 rtbHTML.SelRTF = " " End If End Sub Private Sub mnuHTMLItalicOff_Click() If rtbHTML.Visible = True Then rtbHTML.SelLength = 0 rtbHTML.SelRTF = " " End If End Sub Private Sub mnuHTMLItalicOn_Click() If rtbHTML.Visible = True Then rtbHTML.SelLength = 0 rtbHTML.SelRTF = " " End If End Sub Private Sub mnuHTMLLinks_Click() If rtbHTML.Visible = True Then rtbHTML.SelLength = 0 'rtbHTML.SelRTF = AddLinkTable(4, 3, "Link Table Title") rtbHTML.SelRTF = AddLinkTable(CLng(InputBox("Number of Columns", "Column Count", "3")), CLng(InputBox("Number of Rows", "Row Count", "4")), InputBox("Table Title", "Title of Table", "Table")) End If End Sub Private Sub mnuHTMLNumbLower_Click() NumberedList 3 End Sub Private Sub mnuHTMLNumbLRoman_Click() NumberedList 5 End Sub Private Sub mnuHTMLNumbStd_Click() NumberedList 1 End Sub Private Sub mnuHTMLNumbUCase_Click() NumberedList 2 End Sub Private Sub mnuHTMLNumbURoman_Click() NumberedList 4 End Sub Private Sub mnuHTMLParaStart_Click() If rtbHTML.Visible = True Then rtbHTML.SelLength = 0 rtbHTML.SelRTF = "

" & vbCrLf End If End Sub Private Sub mnuHTMLPicture_Click() If rtbHTML.Visible Then 'AddPicElement InputBox("Enter picture name:", "Picture Name", "bt2b2.gif"), CInt(InputBox("Border Value", "Border Value", "0")) ' rtbHTML.SelLength = 0 Dim Temp$ Temp$ = AddPicElement(InputBox("Enter picture name:", "Picture Name", "bt2b2.gif"), CInt(InputBox("Border Value", "Border Value", "0"))) rtbHTML.SelRTF = Temp$ End If End Sub Private Sub mnuHTMLPreformattedOff_Click() If rtbHTML.Visible = True Then rtbHTML.SelLength = 0 rtbHTML.SelRTF = " " End If End Sub Private Sub mnuHTMLPreformattedOn_Click() If rtbHTML.Visible = True Then rtbHTML.SelLength = 0 rtbHTML.SelRTF = "

 "
    End If
End Sub
Private Sub mnuHTMLRefreshCurrent_Click()
    Dim Quote$
    Quote$ = Chr$(34)
    If rtbHTML.Visible = True Then
        rtbHTML.SelLength = 0
        rtbHTML.SelRTF = "" & vbCrLf
    End If
'
End Sub
Private Sub mnuHTMLRefreshOther_Click()
    Dim Quote$
    Quote$ = Chr$(34)
    If rtbHTML.Visible = True Then
        rtbHTML.SelLength = 0
        rtbHTML.SelRTF = "" & vbCrLf
    End If
End Sub
Private Sub mnuHTMLReturn_Click()
    If rtbHTML.Visible = True Then
        rtbHTML.SelLength = 0
        rtbHTML.SelRTF = "
" & vbCrLf
    End If
End Sub
Private Sub mnuHTMLRule_Click()
    If rtbHTML.Visible = True Then
        frmHR.Show
        frmHTMLEditor.Hide
    End If
End Sub
Private Sub mnuHTMLSmallOff_Click()
    If rtbHTML.Visible = True Then
        rtbHTML.SelLength = 0
        rtbHTML.SelRTF = " "
    End If
End Sub
Private Sub mnuHTMLSmallOn_Click()
    If rtbHTML.Visible = True Then
        rtbHTML.SelLength = 0
        rtbHTML.SelRTF = " "
    End If
End Sub
Private Sub mnuHtmlSpecAmpersand_Click()
    If rtbHTML.Visible = True Then
        rtbHTML.SelLength = 0
        rtbHTML.SelRTF = " & "
    End If
End Sub
Private Sub mnuHTMLSpecCRS_Click()
    If rtbHTML.Visible = True Then
        rtbHTML.SelLength = 0
        rtbHTML.SelRTF = " © "
    End If
End Sub
Private Sub mnuHTMLSpecGreater_Click()
    If rtbHTML.Visible = True Then
        rtbHTML.SelLength = 0
        rtbHTML.SelRTF = " > "
    End If
End Sub
Private Sub mnuHTMLSpecLessthan_Click()
    If rtbHTML.Visible = True Then
        rtbHTML.SelLength = 0
        rtbHTML.SelRTF = " < "
    End If
End Sub
Private Sub mnuHTMLSpecNBS_Click()
    If rtbHTML.Visible = True Then
        rtbHTML.SelLength = 0
        rtbHTML.SelRTF = "   "
    End If
End Sub
Private Sub mnuHTMLSpecQuote_Click()
    If rtbHTML.Visible = True Then
        rtbHTML.SelLength = 0
        rtbHTML.SelRTF = " " "
    End If
End Sub
Private Sub mnuHTMLSpecRMS_Click()
    If rtbHTML.Visible = True Then
        rtbHTML.SelLength = 0
        rtbHTML.SelRTF = " ® "
    End If
End Sub
Private Sub mnuHTMLSubOff_Click()
    If rtbHTML.Visible = True Then
        rtbHTML.SelLength = 0
        rtbHTML.SelRTF = " "
    End If
End Sub
Private Sub mnuHTMLSubOn_Click()
    If rtbHTML.Visible = True Then
        rtbHTML.SelLength = 0
        rtbHTML.SelRTF = " "
    End If
End Sub
Private Sub mnuHTMLSubscrOn_Click()
    If rtbHTML.Visible = True Then
        rtbHTML.SelLength = 0
        rtbHTML.SelRTF = " "
    End If
End Sub
Private Sub mnuHTMLSuperOn_Click()
    If rtbHTML.Visible = True Then
        rtbHTML.SelLength = 0
        rtbHTML.SelRTF = " "
    End If
End Sub
Private Sub mnuHTMLSupOff_Click()
    If rtbHTML.Visible = True Then
        rtbHTML.SelLength = 0
        rtbHTML.SelRTF = " "
    End If
End Sub
Private Sub mnuHTMLTable_Click()
    If rtbHTML.Visible = True Then
        rtbHTML.SelLength = 0
        rtbHTML.SelRTF = AddTable(CLng(InputBox("Number of Columns", "Column Count", "3")), CLng(InputBox("Number of Rows", "Row Count", "4")), InputBox("Table Title", "Title of Table", "Table"))
    End If
End Sub
Private Sub rtbHTML_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 And Shift = 2 Then
        If rtbHTML.Visible = True Then
        rtbHTML.SelLength = 0
        rtbHTML.SelRTF = "
" & vbCrLf
        KeyCode = 0
    End If
    End If
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Key
    Case "Exit"
        Unload Me
    Case "Browser"
        'WebBrowser1.Visible = True
        'rtbHTML.Visible = False
    Case "Editor"
        If HTMLData = False Or Len(rtbHTML.Text) < 1 Then
            rtbHTML.Text = "" & vbCrLf & vbCrLf & "" & vbCrLf & "" & vbCrLf & "" & vbCrLf & vbCrLf & "" & vbCrLf & vbCrLf & "" & vbCrLf & vbCrLf & ""
            HTMLData = True
        End If
        
        WebBrowser1.Visible = False
        rtbHTML.Visible = True
    Case "Preview"
        If HTMLData = True Then
            Dim Temp$
            Temp$ = App.Path
            If Right(Temp$, 1) <> "\" Then Temp$ = Temp$ & "\"
            Open Temp$ & "preview.html" For Output As #1
            Print #1, rtbHTML.Text
            Close #1
            WebBrowser1.Visible = True
            rtbHTML.Visible = False
            WebBrowser1.Navigate Temp$ & "preview.html"
        Else
            MsgBox "There is no HTML data to preview!", vbOKOnly + vbInformation
        End If
    End Select
End Sub